home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 008a / fglqbx10.zip / 07-02.BAS < prev    next >
BASIC Source File  |  1991-06-06  |  585b  |  38 lines
  1. REM $INCLUDE: 'fastgraf.bi'
  2.  
  3. DEFINT A-Z
  4.  
  5. DECLARE SUB PutString(CharString$,Row,Column)
  6.  
  7. OldMode = FGgetmode
  8. FGsetmode 3
  9. FGcursor 0
  10.  
  11. FGsetattr 14, 0, 0
  12. CALL PutString("yellow",0,0)
  13.  
  14. FGsetattr 10, 0, 0
  15. FGwhere Row, Column
  16. CALL PutString("green",Row,Column+1)
  17.  
  18. FGsetattr 12, 0, 1
  19. FGwhere Row, Column
  20. CALL PutString("blinking",Row,Column+1)
  21.  
  22. FGsetattr 12, 7, 0
  23. CALL PutString(" Press any key. ",24,0)
  24. FGwaitkey
  25.  
  26. FGsetmode OldMode
  27. FGreset
  28.  
  29. END
  30.  
  31.  
  32. SUB PutString(CharString$,Row,Column)
  33.  
  34. FGlocate Row, Column
  35. FGText CharString$, LEN(CharString$)
  36.  
  37. END SUB
  38.